home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 001-010 / amok06 / mathlib / mathlibr2.def < prev    next >
Text File  |  1993-11-04  |  1KB  |  45 lines
  1. (**********************************************************************
  2.  
  3.     :Program.       MathLibR2.def
  4.     :Contents.     Mathematik-Bibliothek für Vektoren und Matrizen im R² 
  5.     :Author.        Nicolas Benezan [bne]
  6.     :Address.    Postwiesenstr. 2, D7000 Stuttgart 60
  7.     :Phone.      711/333679
  8.     :Copyright.  Public Domain
  9.     :Language.      Modula-2
  10.     :Translator. M2Amiga AMSoft
  11.     :ModHistory. V1.0 [bne] 30.06.88 (first PD version, Amok#4)
  12.     
  13. **********************************************************************)
  14.  
  15. DEFINITION MODULE MathLibR2;
  16.  
  17. FROM SYSTEM    IMPORT FFP;
  18.  
  19. TYPE    Scalar=FFP;
  20.     Vector2=RECORD
  21.           x:Scalar;
  22.           y:Scalar;
  23.         END;
  24.         Matrix2=ARRAY [1..2],[1..2] OF Scalar;
  25.  
  26. PROCEDURE Add2(V1,V2:Vector2;VAR Ve:Vector2);
  27.   
  28. PROCEDURE Sub2(V1,V2:Vector2;VAR Ve:Vector2);
  29.   
  30. PROCEDURE Smul2(s:Scalar;V:Vector2;VAR Ve:Vector2);
  31.   
  32. PROCEDURE Skprod2(V1,V2:Vector2):Scalar;
  33.     
  34. PROCEDURE Cprod2(V1,V2:Vector2;VAR Ve:Vector2);
  35.   
  36. PROCEDURE Abs2(V:Vector2):Scalar;
  37.   
  38. PROCEDURE Trans2(VAR M:Matrix2;V:Vector2;VAR Ve:Vector2);
  39.   
  40. PROCEDURE Invert2(VAR M:Matrix2):BOOLEAN;
  41.   
  42. PROCEDURE Mmul2(M1,M2:Matrix2;VAR Me:Matrix2);
  43.  
  44. END MathLibR2.
  45.